/[guile]/guile/guile-core/ice-9/psyntax.ss
ViewVC logotype

Diff of /guile/guile-core/ice-9/psyntax.ss

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by mdj, Sun Jan 19 17:47:01 2003 UTC revision 1.17 by mdj, Mon Jan 20 10:12:28 2003 UTC
# Line 419  Line 419 
419      ((_ src level name) name)))      ((_ src level name) name)))
420    
421  (define (build-data src exp)  (define (build-data src exp)
422    (if (self-evaluating? exp)    (if (and (self-evaluating? exp)
423               (not (vector? exp)))
424        exp        exp
425        (list 'quote exp)))        (list 'quote exp)))
426    
# Line 450  Line 451 
451  (define-syntax build-lexical-var  (define-syntax build-lexical-var
452    (syntax-rules ()    (syntax-rules ()
453      ((_ src id) (gensym (symbol->string id)))))      ((_ src id) (gensym (symbol->string id)))))
   
 (define-syntax self-evaluating?  
   (syntax-rules ()  
     ((_ e)  
      (let ((x e))  
        (or (boolean? x) (number? x) (string? x) (char? x) (keyword? x)  
            (procedure? x))))))  
454  )  )
455    
456  (define-structure (syntax-object expression wrap))  (define-structure (syntax-object expression wrap))

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26