mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* psyntax.ss (self-evaluating?): Allow procedures implanted in

Browse source 
source.  (Guile uses this internally.)
This commit is contained in:
Mikael Djurfeldt 2003-01-19 17:47:01 +00:00
parent 27b32aad49
commit 9889e923c6
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/psyntax.pp
View file

File diff suppressed because one or more lines are too long

3
ice-9/psyntax.ss
View file

@ -455,7 +455,8 @@
(syntax-rules () (syntax-rules ()
((_ e) ((_ e)
(let ((x e)) (let ((x e))
(or (boolean? x) (number? x) (string? x) (char? x) (keyword? x)))))) (or (boolean? x) (number? x) (string? x) (char? x) (keyword? x)
(procedure? x))))))
) )
(define-structure (syntax-object expression wrap)) (define-structure (syntax-object expression wrap))