summaryrefslogtreecommitdiffstats
path: root/vscm.init
diff options
context:
space:
mode:
authorDavid N. Welton <davidw@efn.org>1998-11-09 21:18:01 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
commit926b1b647ac830660933a5e63eb52d4a2552e264 (patch)
treee25db5f6e1441d67f5d9af063432018ee20a5f51 /vscm.init
parentb21cac3362022718634f7086964208b2eed8e897 (diff)
parentfa3f23105ddcf07c5900de47f19af43d1db1b597 (diff)
downloadslib-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 'vscm.init')
-rw-r--r--vscm.init12
1 files changed, 6 insertions, 6 deletions
diff --git a/vscm.init b/vscm.init
index 6868213..6164298 100644
--- a/vscm.init
+++ b/vscm.init
@@ -131,8 +131,8 @@
; transcript ;TRANSCRIPT-ON and TRANSCRIPT-OFF
; char-ready?
; macro ;has R4RS high level macros
-; defmacro ;has Common Lisp DEFMACRO
- eval ;SLIB:EVAL is single argument eval
+ defmacro ;has Common Lisp DEFMACRO
+; eval ;proposed 2-argument eval
; record ;has user defined data structures
values ;proposed multiple values
; dynamic-wind ;proposed dynamic-wind
@@ -168,7 +168,7 @@
(define (output-port-width . arg) 79)
;;; (CURRENT-ERROR-PORT)
-(define current-error-port
+(define (current-error-port)
(standard-port 2))
;;; (TMPNAM) makes a temporary file name.
@@ -269,8 +269,7 @@
;;; Return argument
(define (identity x) x)
-;;; If your implementation provides eval SLIB:EVAL is single argument
-;;; eval using the top-level (user) environment.
+;;; SLIB:EVAL is single argument eval using the top-level (user) environment.
(define slib:eval eval)
;;; If your implementation provides R4RS macros:
@@ -333,7 +332,8 @@
(for-each (lambda (x) (display x port)) args))))
;;; define an error procedure for the library
-(define slib:error error)
+(define (slib:error . argl)
+ (error argl))
;;; define these as appropriate for your system.
(define slib:tab #\Tab)