Fix recent change to SHALLOW-FLUID-BIND.
authorTaylor R Campbell <campbell@mumble.net>
Thu, 7 Oct 2010 05:47:30 +0000 (05:47 +0000)
committerTaylor R Campbell <campbell@mumble.net>
Thu, 7 Oct 2010 05:47:30 +0000 (05:47 +0000)
commitb74885fc7c9fd4ffc80179a1c57a7e2d2d6ff9b2
tree02d3940956e702f7fffbdf37888bfffec581754c
parent6aad350baa0fb00fd13e085e035ac512fd03acc8
Fix recent change to SHALLOW-FLUID-BIND.

This works around lossage with unassigned variables:

   (define x)
   (fluid-let ((x 0)) ...)
   ;Unassigned variable: x

This relies on the deprecated semantics of SET! that returns the
variable's old value (or old reference trap, if unassigned).
src/runtime/mit-macros.scm