Am Dienstag, 21. April 2015 14:23 CEST, Simon Albrecht <address@hidden> schrieb:
... Yet I have taken inspiration from there to create the
attached tool for making nice margins, which I’ve been using ever since.
Hmm, maybe I miss the obvious, but in your code:
(define pair-or-rational? (or pair? rational?))
you might as well write (define pair-or-rational? pair?) since (or pair?
rational?) allways evaluates to
pair? ...
Do you want
(define pair-or-rational? (thing)
(or
(pair? thing)
(rational? thing)))