Ticket #940: set-read-syntax-unset-with-false.patch

File set-read-syntax-unset-with-false.patch, 582 bytes (added by megane, 9 years ago)
  • library.scm

    diff --git a/library.scm b/library.scm
    index bd30e62..26c6862 100644
    a b EOF 
    30673067             (##sys#check-char chr loc)
    30683068             (let ([i (char->integer chr)])
    30693069               (##sys#check-range i 0 256 loc)
    3070                (##sys#setslot (##sys#slot crt slot) i (wrap proc)) ) ) ) ) )
     3070               (cond
     3071                ((procedure? proc)
     3072                 (##sys#setslot (##sys#slot crt slot) i (wrap proc)))
     3073                ((not proc)
     3074                   (##sys#setslot (##sys#slot crt slot) i #f))
     3075                (else (##sys#error "not a procedure" proc))) ) ) ) ))
    30713076 
    30723077  (set! set-read-syntax!
    30733078    (syntax-setter