~ chicken-core (chicken-5) 219f6e6e7141ce0a22c1fe3e3bbd462416a7087d
commit 219f6e6e7141ce0a22c1fe3e3bbd462416a7087d
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Jan 18 19:09:45 2016 +1300
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Tue Mar 8 22:52:33 2016 +1300
Drop obsolete #:tmp marker for specializations in `build-node-graph`
diff --git a/support.scm b/support.scm
index a730c3ea..0ea66202 100644
--- a/support.scm
+++ b/support.scm
@@ -508,11 +508,7 @@
(if (null? bs)
(walk body)
(make-node
- 'let
- (map (lambda (v)
- ;; for temporaries introduced by specialization
- (if (eq? '#:tmp v) (error "SHOULD NOT HAPPEN") v)) ; OBSOLETE
- (unzip1 bs))
+ 'let (unzip1 bs)
(append (map (lambda (b) (walk (cadr b))) (cadr x))
(list (walk body)) ) ) ) ) )
((lambda ##core#lambda)
Trap