/[guile]/guile/guile-core/lang/elisp/transform.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/transform.scm

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

revision 1.4 by ossau, Fri Feb 1 16:47:00 2002 UTC revision 1.5 by ossau, Mon Feb 4 21:13:46 2002 UTC
# Line 16  Line 16 
16  (define (transformer x)  (define (transformer x)
17    (cond ((eq? x 'nil) %nil)    (cond ((eq? x 'nil) %nil)
18          ((eq? x 't) #t)          ((eq? x 't) #t)
19          ((null? x) '())          ((null? x) %nil)
20          ((not (pair? x)) x)          ((not (pair? x)) x)
21          ((and (pair? (car x))          ((and (pair? (car x))
22                (eq? (caar x) 'quasiquote))                (eq? (caar x) 'quasiquote))
# Line 51  Line 51 
51          (else (syntax-error x))))          (else (syntax-error x))))
52    
53  (define (m-quasiquote exp env)  (define (m-quasiquote exp env)
54    (cons 'quasiquote    (cons quasiquote
55          (map transform-inside-qq (cdr exp))))          (map transform-inside-qq (cdr exp))))
56    
57  (define (transform-inside-qq x)  (define (transform-inside-qq x)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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