Fix up provided bindings.
This commit is contained in:
parent
43a76580d6
commit
d44f0fb14c
|
@ -1,7 +1,6 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
|
|
||||||
(require racket/port)
|
(require racket/port)
|
||||||
(require "os.rkt")
|
|
||||||
(require "os-userland.rkt")
|
(require "os-userland.rkt")
|
||||||
|
|
||||||
(define (rpc req)
|
(define (rpc req)
|
||||||
|
@ -75,5 +74,5 @@
|
||||||
(rpc `(sleep 1000))
|
(rpc `(sleep 1000))
|
||||||
(send `(display "Goodbye\n")))
|
(send `(display "Goodbye\n")))
|
||||||
|
|
||||||
(ground-vm (lambda (p m) (p m)) ;; pattern-predicate
|
(ground-vm/userland (lambda (p m) (p m)) ;; pattern-predicate
|
||||||
(lambda () (userland main)))
|
main)
|
||||||
|
|
|
@ -9,7 +9,9 @@
|
||||||
(provide (struct-out wait-clause)
|
(provide (struct-out wait-clause)
|
||||||
message-handlers
|
message-handlers
|
||||||
meta-message-handlers
|
meta-message-handlers
|
||||||
|
|
||||||
userland
|
userland
|
||||||
|
ground-vm/userland
|
||||||
|
|
||||||
send
|
send
|
||||||
meta-send
|
meta-send
|
||||||
|
@ -44,6 +46,9 @@
|
||||||
'finish))
|
'finish))
|
||||||
void)))
|
void)))
|
||||||
|
|
||||||
|
(define (ground-vm/userland pattern-predicate boot)
|
||||||
|
(ground-vm pattern-predicate (lambda () (userland boot))))
|
||||||
|
|
||||||
(define ((reply-to k) v)
|
(define ((reply-to k) v)
|
||||||
(call-with-continuation-prompt (lambda () (k (v))) prompt))
|
(call-with-continuation-prompt (lambda () (k (v))) prompt))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue