id,summary,reporter,owner,description,type,status,priority,milestone,component,version,resolution,keywords,cc,difficulty 940,Cannot unset read syntax,megane,,"This error only shows up with the interpreter. I've attached a patch. {{{ (set-read-syntax! #\! (lambda (port) (read-string 3 port))) (print (string? !foo)) (set-read-syntax! #\! #f) ; <- try to unset (print ""here"") (print (string? !foo)) ;; ; loading bug.scm ... ;; #t ;; here ;; Error: call of non-procedure: #f ;; Call history: ;; parley.scm:587: set-port-name! ;; (set-read-syntax! #\! (lambda (port) (read-string 3 port))) ;; (lambda (port) (read-string 3 port)) ;; (##core#lambda (port) (read-string 3 port)) ;; (##core#begin (read-string 3 port)) ;; (read-string 3 port) ;; (set-read-syntax! #\! (lambda (port) (read-string 3 port))) ;; (read-string 3 port) ;; (print (string? ""foo"")) ;; (string? ""foo"") ;; (print (string? ""foo"")) ;; (string? ""foo"") ;; (set-read-syntax! #\! #f) ;; (set-read-syntax! #\! #f) ;; (print ""here"") ;; (print ""here"") <-- }}} ",defect,closed,minor,someday,unknown,4.8.x,fixed,,,