Re: #1765: enable-warnings time-travelling shenanigans

[Chicken Trac]

#1765: enable-warnings time-travelling shenanigans
---------------------------------------+---------------------
            Reporter:  Idiomdrottning  |      Owner:  (none)
                Type:  defect          |     Status:  new
            Priority:  major           |  Milestone:  someday
           Component:  unknown         |    Version:  5.2.0
          Resolution:                  |   Keywords:  REPL
Estimated difficulty:                  |
---------------------------------------+---------------------

Comment (by Idiomdrottning):

 Oh, ignore-errors already exist so forget my custom bound-procedure.

 Here is an already miscmacros-established way to get the same weird
 behavior:

 (import miscmacros)

 (enable-warnings #f)
 (define wtf (ignore-errors (procedure? if)))
 (enable-warnings #t)
 wtf

 ;; politely evals #f

 (begin
  (enable-warnings #f)
  (define wtf (ignore-errors (procedure? if)))
  (enable-warnings #t)
  wtf)

 ;; notices at the REPL

-- 
Ticket URL: <https://bugs.call-cc.org/ticket/1765#comment:1>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.