Fix bug in LIARC code generator.

diff --git a/src/compiler/machines/C/rules1.scm b/src/compiler/machines/C/rules1.scm
index 03ab277f790e146407dc3a0e5edbb1c4afc7e194..a8d40da61ed90279a77dc2064c50af91d6cb83a3 100644 (file)
--- 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)))))