From fde75b7c8e2775ab3109f92daca91c7d1d776174 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Thu, 24 Aug 2000 00:16:17 +0000
Subject: [PATCH] * psyntax.ss (set!): Added generalized set! support to core
 syntax form set!.

---
 ice-9/psyntax.ss | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ice-9/psyntax.ss b/ice-9/psyntax.ss
index fc4178ed3..0fd70f342 100644
--- a/ice-9/psyntax.ss
+++ b/ice-9/psyntax.ss
@@ -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 '())