I expected this to work:

(define (comp->text comp)
  (case comp
   ((=)    "=")
   ((>)    ">")
   ((<)    "<")
   ((>=)  ">=")
   ((<=)  "<=")
   (else "unk")))

But had to convert to a cond with (eq? comp =) etc...

I thought case was supposed to use eq? to do the compare?

Thanks,

M a t t
-=-
_______________________________________________
Chicken-users mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to