Skip to content

Instantly share code, notes, and snippets.

@shirok

shirok/gist:4364316

Created December 23, 2012 16:50
Show Gist options
  • Save shirok/4364316 to your computer and use it in GitHub Desktop.
Save shirok/4364316 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.diff
diff --git a/src/vminsn.scm b/src/vminsn.scm
index f8e2dc9..8c7318d 100644
--- a/src/vminsn.scm
+++ b/src/vminsn.scm
@@ -757,6 +757,7 @@
(define-insn GSET 0 obj #f
(let* ((loc))
(FETCH-OPERAND loc)
+ (SCM_FLONUM_ENSURE_MEM VAL0)
(cond
[(SCM_GLOCP loc) (SCM_GLOC_SET (SCM_GLOC loc) VAL0)]
[(SCM_IDENTIFIERP loc)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment