svm: Fixed the return of trap results.

diff --git a/src/compiler/machines/svm/machine.scm b/src/compiler/machines/svm/machine.scm
index b341b66b1ca6ccfe7b5707cc85b0139f2d59fcbc..fd0785f04cd191855debb3c92e98f8785456ba47 100644 (file)
--- a/src/compiler/machines/svm/machine.scm
+++ b/src/compiler/machines/svm/machine.scm
@@ -377,22 +377,22 @@ USA.
 ;;;; RTL Generator Interface
 
 (define (interpreter-register:access)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:cache-reference)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:cache-unassigned?)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:lookup)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:unassigned?)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:unbound?)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
   
 (define-syntax define-machine-register
   (sc-macro-transformer