mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

remove (void) from boot-9 and psyntax

Browse source 
* module/ice-9/psyntax.scm: Tweak comments. Remove references to `void';
  just produce (if #f #f) instead of (void).

* module/ice-9/psyntax-pp.scm: Regenerated, twice.

* module/ice-9/boot-9.scm (void): Remove this binding.
This commit is contained in:
Andy Wingo 2009-04-29 23:57:31 +02:00
parent 6a952e0ee9
commit 41af238146
3 changed files with 18 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -33,8 +33,6 @@
(define (void) (if #f #f))
;; Before compiling, make sure any symbols are resolved in the (guile)
;; module, the primary location of those symbols, rather than in
;; (guile-user), the default module that we compile in.

24
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because one or more lines are too long

24
module/ice-9/psyntax.scm
View file

@ -22,6 +22,9 @@
;;; Extracted from Chez Scheme Version 5.9f
;;; Authors: R. Kent Dybvig, Oscar Waddell, Bob Hieb, Carl Bruggeman
;;; Modified by Andy Wingo <wingo@pobox.com> according to the Git
;;; revision control logs corresponding to this file: 2009.
;;; Modified by Mikael Djurfeldt <djurfeldt@nada.kth.se> according
;;; to the ChangeLog distributed in the same directory as this file:
;;; 1997-08-19, 1997-09-03, 1997-09-10, 2000-08-13, 2000-08-24,
@ -85,15 +88,8 @@
;;; used by expanded code to handle syntax-case matching
;;; The following nonstandard procedures must be provided by the
;;; implementation for this code to run.
;;;
;;; (void)
;;; returns the implementation's cannonical "unspecified value". This
;;; usually works: (define void (lambda () (if #f #f))).
;;;
;;; The following nonstandard procedures must also be provided by the
;;; implementation for this code to run using the standard portable
;;; hooks and output constructors. They are not used by expanded code,
;;; hooks and output constructors. They are not used by expanded code,
;;; and so need be present only at expansion time.
;;;
;;; (eval x)
@ -111,12 +107,6 @@
;;;
;;; (gensym)
;;; returns a unique symbol each time it's called
;;;
;;; (putprop symbol key value)
;;; (getprop symbol key)
;;; key is always the symbol *sc-expander*; value may be any object.
;;; putprop should associate the given value with the given symbol in
;;; some way that it can be retrieved later with getprop.
;;; When porting to a new Scheme implementation, you should define the
;;; procedures listed above, load the expanded version of psyntax.ss
@ -262,8 +252,6 @@
args))))))
(syntax-case x ()
((_ (name id1 ...))
;; But here we use and-map, because andmap isn't yet in scope for
;; syntax.
(and-map identifier? (syntax (name id1 ...)))
(with-syntax
((constructor (construct-name (syntax name) "make-" (syntax name)))
@ -1020,7 +1008,7 @@
((_ name)
(id? (syntax name))
(values 'define-form (wrap (syntax name) w mod)
(syntax (void))
(syntax (if #f #f))
empty-wrap s mod))))
((define-syntax)
(syntax-case e ()
@ -1429,7 +1417,7 @@
(define chi-void
(lambda ()
(build-application no-source (build-primref no-source 'void) '())))
(build-application no-source (build-primref no-source 'if) '(#f #f))))
(define ellipsis?
(lambda (x)