suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix really stupid bug in `convert-explicit'.

Browse Source 
svn: r16989
This commit is contained in:
Mike Sperber 2009-11-23 11:21:30 +00:00
parent 0317676d11
commit ffadf59303
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/deinprogramm/convert-explicit.scm
View File

@ -63,7 +63,7 @@
((null? v) (make-:empty-list)) ; prevent silly printing of sharing
((pair? v)
(make-:list
(let recur ((v v))
(let list-recur ((v v))
(cond
((null? v)
v)
@ -71,7 +71,7 @@
(recur v))
(else
(cons (recur (car v))
(recur (cdr v))))))))
(list-recur (cdr v))))))))
((deinprogramm-struct? v)
(or (hash-ref hash v #f)
(let*-values (((ty skipped?) (struct-info v))