diff options
author | David N. Welton <davidw@efn.org> | 1998-11-09 21:18:01 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:27 -0800 |
commit | 926b1b647ac830660933a5e63eb52d4a2552e264 (patch) | |
tree | e25db5f6e1441d67f5d9af063432018ee20a5f51 /qp.scm | |
parent | b21cac3362022718634f7086964208b2eed8e897 (diff) | |
parent | fa3f23105ddcf07c5900de47f19af43d1db1b597 (diff) | |
download | slib-926b1b647ac830660933a5e63eb52d4a2552e264.tar.gz slib-926b1b647ac830660933a5e63eb52d4a2552e264.zip |
Import Debian changes 2c3-3debian/2c3-3
slib (2c3-3) frozen unstable; urgency=low
* Fixes #16235.
* Fixes #19943.
* Fixes #20265.
* Fixes #24917.
* Fixes #27389.
slib (2c3-2) frozen unstable; urgency=low
* Re-uploaded for slink freeze.
slib (2c3-1) unstable; urgency=low
* New upstream release.
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) |