Miroirs/skint
1
0
Fork 0
mirror of https://github.com/false-schemers/skint.git synced 2024-12-26 21:58:51 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update n.sf

Browse source
This commit is contained in:
ESL 2023-04-02 17:01:34 -04:00
parent 8ad92fa9a7
commit 5855d7de78
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/n.sf
View file

@ -3775,6 +3775,15 @@ static void wrdatum(obj o, wenv_t *e) {
wrc(')', e);
} else if (isbox(o)) {
wrs(\"#&\", e); o = boxref(o); goto tail;
} else if (istagged(o, 0)) {
int i, n = taggedlen(o, 0);
wrs(\"#<values\", e);
for (i = 0; i < n; ++i) {
wrc(' ', e); wrdatum(*taggedref(o, 0, i), e);
}
wrc('>', e);
} else if (isprocedure(o)) {
char buf[60]; sprintf(buf, \"#<procedure @%p>\", objptr_from_obj(o)); wrs(buf, e);
} else if (isrecord(o)) {
int i, n = recordlen(o);
wrs(\"#<record \", e);
@ -3783,8 +3792,6 @@ static void wrdatum(obj o, wenv_t *e) {
wrc(' ', e); wrdatum(recordref(o, i), e);
}
wrc('>', e);
} else if (isprocedure(o)) {
char buf[60]; sprintf(buf, \"#<procedure @%p>\", objptr_from_obj(o)); wrs(buf, e);
} else if (isvoid(o)) {
wrs(\"#<void>\", e);
} else {