[CM] More format and/or optimiser woes

[chohag at jtan.com]

The presense of the format instruction breaks the subsequent
symbol->string when a mystery #f shows up.

;symbol->string argument, #f, is boolean but should be a symbol

(define (broken . ARGS)
        (map (lambda (S)
                        (format #t "~A\n" (object->string S #t))
                        (if (string? S) S (symbol->string S)))
                ARGS))

(define (golf O) (broken "OP_" O))

(golf "NOOP")

Matthew