original commit: 1bdbc2dc55b5d76ae159d4cbdd25c56695c47873
This commit is contained in:
Robby Findler 2004-04-14 21:34:13 +00:00
parent d78b7c0592
commit ad1149bfd9

View File

@ -993,7 +993,6 @@
[define get-label (lambda () label)]
[define set-label
(lambda (t)
(printf "set-label ~s\n" t)
(when (and (string? t)
(not (string=? t label)))
(set! label t)