[Scsh-checkins] CVS: scsh-0.6/scheme/rts exception.scm,1.1.1.1,1.2

[Mike Sperber <sperber@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scheme/rts
In directory usw-pr-cvs1:/tmp/cvs-serv26023

Modified Files:
        exception.scm 
Log Message:
Change from Richard, Scheme 48 0.56 -> 0.56.9:
Define exception handler for TIME opcode.


Index: exception.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/rts/exception.scm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** exception.scm       1999/09/14 12:44:58     1.1.1.1
--- exception.scm       2001/07/10 13:13:27     1.2
***************
*** 30,33 ****
--- 30,42 ----
      (really-signal-condition arg)))
  
+ ; The time opcode sometimes needs a little help.
+ 
+ (define-exception-handler (enum op time)
+   (lambda (opcode reason option arg0 . maybe-arg1)
+     (if (= reason (enum exception arithmetic-overflow))
+       (+ (* arg0 1000)                ; seconds
+          (car maybe-arg1))            ; milliseconds
+       (apply signal-exception opcode reason option arg0 mayge-arg1))))
+ 
  ; This is for generic arithmetic, mostly