mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-05 03:30:24 +02:00
Code Activity

* psyntax.ss (set!): Added generalized set! support to core syntax

Browse source 
form set!.
This commit is contained in:
Mikael Djurfeldt 2000-08-24 00:16:17 +00:00
parent 38525772e4
commit fde75b7c8e
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/psyntax.ss
View file

@ -1670,6 +1670,11 @@
(syntax-error (wrap (syntax id) w) (syntax-error (wrap (syntax id) w)
"identifier out of context")) "identifier out of context"))
(else (syntax-error (source-wrap e w s))))))) (else (syntax-error (source-wrap e w s)))))))
((_ (getter arg ...) val)
(build-application s
(chi (syntax (setter getter)) r w)
(map (lambda (e) (chi e r w))
(syntax (arg ... val)))))
(_ (syntax-error (source-wrap e w s)))))) (_ (syntax-error (source-wrap e w s))))))
(global-extend 'begin 'begin '()) (global-extend 'begin 'begin '())