avoid leading colon for id

svn: r936
This commit is contained in:
Matthew Flatt 2005-09-29 15:49:27 +00:00
parent 2ff737514b
commit 457d23c390

View File

@ -447,7 +447,7 @@
(hash-table-remove! table obj) (hash-table-remove! table obj)
cycle))))))) cycle)))))))
(define ::dummy:: (define __dummy__
(when found-cycle (when found-cycle
(let loop ([obj obj]) (let loop ([obj obj])
(if (or (vector? obj) (if (or (vector? obj)