removed leftover line
svn: r10165
This commit is contained in:
parent
6f6adbf3a1
commit
75d2ba2372
|
@ -606,7 +606,8 @@
|
||||||
(port-display-handler (current-output-port) display-object)
|
(port-display-handler (current-output-port) display-object)
|
||||||
(port-display-handler (current-error-port) display-object)
|
(port-display-handler (current-error-port) display-object)
|
||||||
(port-write-handler (current-output-port) write-object)
|
(port-write-handler (current-output-port) write-object)
|
||||||
(port-write-handler (current-error-port) write-object))
|
(port-write-handler (current-error-port) write-object)
|
||||||
|
(current-print write-object))
|
||||||
|
|
||||||
;;; ---------------------------------------------------------------------------
|
;;; ---------------------------------------------------------------------------
|
||||||
;;>>... Simple matching
|
;;>>... Simple matching
|
||||||
|
|
|
@ -9,8 +9,7 @@
|
||||||
mzlib/list
|
mzlib/list
|
||||||
mred
|
mred
|
||||||
net/sendurl
|
net/sendurl
|
||||||
string-constants
|
string-constants)
|
||||||
swindle/extra)
|
|
||||||
(provide tool@)
|
(provide tool@)
|
||||||
|
|
||||||
(define tool@
|
(define tool@
|
||||||
|
|
Loading…
Reference in New Issue
Block a user