mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-03 02:36:19 +02:00
* psyntax.ss (set!): Added generalized set! support to core syntax
form set!.
This commit is contained in:
parent
38525772e4
commit
fde75b7c8e
1 changed files with 5 additions and 0 deletions
|
@ -1670,6 +1670,11 @@
|
|||
(syntax-error (wrap (syntax id) w)
|
||||
"identifier out of context"))
|
||||
(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))))))
|
||||
|
||||
(global-extend 'begin 'begin '())
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue