arbitrary binding value for. Replace nearly all occurrences of
`*the-non-printing-object*' with this new variable. Flush special
handling for arguments to `error' special form, assuming that all code
is syntaxed with the new syntaxer.
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.16 1988/08/02 20:27:26 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.17 1988/08/05 20:59:16 cph Exp $
Copyright (c) 1988 Massachusetts Institute of Technology
'()))
(add-system! microcode-system)
(add-event-receiver! event:after-restore snarf-microcode-version!)
- (add-identification! "Runtime" 14 16))
+ (add-identification! "Runtime" 14 17))
(define microcode-system)