diff options
Diffstat (limited to 'qp.scm')
| -rw-r--r-- | qp.scm | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -19,15 +19,6 @@ (define *qp-width* (output-port-width (current-output-port))) -(define qp:qpn - (let ((newline newline) (apply apply)) - (lambda objs (apply qp:qp objs) (newline)))) - -(define qp:qpr - (let ((- -) (apply apply) (length length) (list-ref list-ref)) - (lambda objs (apply qp:qpn objs) - (list-ref objs (- (length objs) 1))))) - (define qp:qp (let ((+ +) (- -) (< <) (= =) (>= >=) (apply apply) (boolean? boolean?) @@ -136,7 +127,7 @@ (lambda objs (cond - ((= 0 *qp-width*) + ((or (not *qp-width*) (= 0 *qp-width*)) (for-each (lambda (x) (write x) (display #\ )) objs) (newline)) (else @@ -144,6 +135,15 @@ (- *qp-width* (qp-obj (car objs) (l-elt-room *qp-width* objs)))))))))) +(define qp:qpn + (let ((newline newline) (apply apply) (qp:qp qp:qp)) + (lambda objs (apply qp:qp objs) (newline)))) + +(define qp:qpr + (let ((- -) (apply apply) (length length) (list-ref list-ref) (qp:qpn qp:qpn)) + (lambda objs (apply qp:qpn objs) + (list-ref objs (- (length objs) 1))))) + (define qp qp:qp) (define qpn qp:qpn) (define qpr qp:qpr) |