From 0e9b1cfb05d32ba52d0a19c636b2bcc9932c6f82 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Oct 2018 20:18:08 -0700
Subject: [PATCH] Fix bug in LIARC code generator.

---
 src/compiler/machines/C/rules1.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/machines/C/rules1.scm b/src/compiler/machines/C/rules1.scm
index 03ab277f7..a8d40da61 100644
--- a/src/compiler/machines/C/rules1.scm
+++ b/src/compiler/machines/C/rules1.scm
@@ -53,7 +53,7 @@ USA.
 (define-rule statement
   (ASSIGN (REGISTER (? target))
 	  (CONS-NON-POINTER (REGISTER (? type)) (REGISTER (? datum))))
-  (let* ((datum (standard-source! datum 'SCHEME_OBJECT*))
+  (let* ((datum (standard-source! datum 'ULONG))
 	 (type (standard-source! type 'ULONG))
 	 (target (standard-target! target 'SCHEME_OBJECT)))
     (LAP ,(c:= target (c:make-object type datum)))))
-- 
2.25.1