diff options
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 | |||