Fix up provided bindings.

os-userland-example.rkt

@@ -1,7 +1,6 @@
 #lang racket/base
 
 (require racket/port)
-(require "os.rkt")
 (require "os-userland.rkt")
 
 (define (rpc req)
@@ -75,5 +74,5 @@
   (rpc `(sleep 1000))
   (send `(display "Goodbye\n")))
 
-(ground-vm (lambda (p m) (p m)) ;; pattern-predicate
-	   (lambda () (userland main)))
+(ground-vm/userland (lambda (p m) (p m)) ;; pattern-predicate
+		    main)

os-userland.rkt

@@ -9,7 +9,9 @@
 (provide (struct-out wait-clause)
 	 message-handlers
 	 meta-message-handlers
+
 	 userland
+	 ground-vm/userland
 
 	 send
 	 meta-send
@@ -44,6 +46,9 @@
 				  'finish))
 		      void)))
 
+(define (ground-vm/userland pattern-predicate boot)
+  (ground-vm pattern-predicate (lambda () (userland boot))))
+
 (define ((reply-to k) v)
   (call-with-continuation-prompt (lambda () (k (v))) prompt))
 

os.rkt

@@ -23,7 +23,6 @@
  run-vm
 
  ;; Grounding out the infinite tower of VMs
- nested-vm-inert?
  ground-vm
  )