~ 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