Port the rest of the front interface

TODO.org

@@ -38,7 +38,7 @@ involve:
  - rewrite macros from explicit renaming to syntax-case
  - ... and many more unforeseen challenges...
 
-** ps-compiler/package-defs.scm [16/30]
+** ps-compiler/package-defs.scm [20/30]
 *** [X] node
 *** [X] variable
 *** [X] primop
@@ -49,8 +49,8 @@ involve:
 *** [X] set-parameters
 *** [X] arch
 *** [X] node-vector
-*** [ ] front
-*** [ ] front-debug
+*** [X] front
+*** [X] front-debug
 *** [ ] cps-util
 *** [X] jump
 *** [X] simplify
@@ -58,8 +58,8 @@ involve:
 *** [ ] simplify-let
 *** [ ] simplify-join
 *** [ ] simp-patterns
-*** [ ] remove-cells
-*** [ ] flow-values
+*** [X] remove-cells
+*** [X] flow-values
 *** [X] comp-util
 *** [X] expanding-vectors
 *** [ ] transitive

ps-compiler/front/top.scm

@@ -15,6 +15,8 @@
   #:use-module (ps-compiler front jump)
   #:use-module (ps-compiler node node)
   #:use-module (ps-compiler node node-util)
+  #:use-module (ps-compiler simp flow-values)
+  #:use-module (ps-compiler simp remove-cells)
   #:use-module (ps-compiler simp simplify)
   #:use-module (ps-compiler util util)
   #:export (simplify-all

ps-compiler/simp/flow-values.scm

@@ -0,0 +1,13 @@
+;;; Ported from Scheme 48 1.9.  See file COPYING for notices and license.
+;;;
+;;; Port Author: Andrew Whatson
+;;;
+;;; Original Authors: Richard Kelsey, Mike Sperber
+;;;
+;;;   scheme48-1.9.2/ps-compiler/package-defs.scm
+
+(define-module (ps-compiler simp flow-values)
+  #:export (flow-values))
+
+(define (flow-values . stuff)
+      (error "FLOW-VALUES is undefined"))

ps-compiler/simp/remove-cells.scm

@@ -0,0 +1,13 @@
+;;; Ported from Scheme 48 1.9.  See file COPYING for notices and license.
+;;;
+;;; Port Author: Andrew Whatson
+;;;
+;;; Original Authors: Richard Kelsey, Mike Sperber
+;;;
+;;;   scheme48-1.9.2/ps-compiler/package-defs.scm
+
+(define-module (ps-compiler simp remove-cells)
+  #:export (remove-cells-from-tree))
+
+(define (remove-cells-from-tree . stuff)
+      (error "REMOVE-CELLS-FROM-TREE is undefined"))