scsh-0.6/scheme/vm/external.scm

19 lines
439 B
Scheme
Raw Normal View History

1999-09-14 08:45:02 -04:00
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
(define (fake-it name)
(lambda args
(display "Call to ")
(display (cons name args))
(newline)
0))
(define extended-vm (fake-it 'extended-vm))
(define external-call (fake-it 'call-external-value))
(define schedule-interrupt (fake-it 'schedule-interrupt))
(define (real-time) 0)
(define (run-time) 0)
(define (cheap-time) 0)