original commit: f0bba5d1aafe35e8eeac11d1d94ef07763d35c06
This commit is contained in:
Robby Findler 2004-07-13 16:28:59 +00:00
parent bd9d830f13
commit 3a2c0d600e

View File

@ -552,7 +552,6 @@
[bytes-name (if (symbol? name)
(string->bytes/utf-8 (symbol->string name))
name)])
(printf "~s\n" (list 'bytes=? bytes-name except))
(unless (and except
(bytes=? bytes-name except))
(set! sub-folders