diff options
author | Bad Diode <bd@badd10de.dev> | 2021-10-09 20:23:52 +0200 |
---|---|---|
committer | Bad Diode <bd@badd10de.dev> | 2021-10-09 20:23:52 +0200 |
commit | ab6b56dfe916c17f34e684e69483895402783ae5 (patch) | |
tree | 37be6a2632fadaddc6c276211f78b3f733f2a6f6 /src/bootstrap/objects.c | |
parent | 859c33f37f0174a7b9d76cdcbe889ff12047c99c (diff) | |
download | bdl-ab6b56dfe916c17f34e684e69483895402783ae5.tar.gz bdl-ab6b56dfe916c17f34e684e69483895402783ae5.zip |
Add proc_display and fix some bugs
Diffstat (limited to 'src/bootstrap/objects.c')
-rw-r--r-- | src/bootstrap/objects.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/bootstrap/objects.c b/src/bootstrap/objects.c index 985709a..14ff50d 100644 --- a/src/bootstrap/objects.c +++ b/src/bootstrap/objects.c | |||
@@ -137,20 +137,3 @@ symbol_eq(Object *a, Object *b) { | |||
137 | } | 137 | } |
138 | return true; | 138 | return true; |
139 | } | 139 | } |
140 | |||
141 | void display(Object *root); | ||
142 | |||
143 | void | ||
144 | display_pair(Object *root) { | ||
145 | display(root->car); | ||
146 | if (root->cdr->type == OBJ_TYPE_PAIR) { | ||
147 | printf(" "); | ||
148 | display_pair(root->cdr); | ||
149 | } else if (root->cdr->type == OBJ_TYPE_NIL) { | ||
150 | return; | ||
151 | } else { | ||
152 | printf(" . "); | ||
153 | display(root->cdr); | ||
154 | } | ||
155 | } | ||
156 | |||