.
original commit: 1bdbc2dc55b5d76ae159d4cbdd25c56695c47873
This commit is contained in:
parent
d78b7c0592
commit
ad1149bfd9
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user