Project restructuring to support the new direction

scmvm.scm

@@ -1,9 +1,7 @@
 (define-module (scmvm)
-  #:use-module (scmvm vm)
-  #:use-module (scmvm assembler)
-  #:use-module (scmvm debugger)
   #:use-module (ice-9 ports)
-  #:export (read-all-instructions instructions-from-file))
+  #:export (read-all-instructions
+	    instructions-from-file))
 
 (define (read-all-instructions)
   (let ([inst (read)])

scmvm/language/assembler.scm

@@ -1,4 +1,4 @@
-(define-module (scmvm assembler)
+(define-module (scmvm language assembler)
   #:use-module (srfi srfi-1)
   #:use-module (scmvm vm)
   #:use-module (rnrs bytevectors)

scratch.scm

@@ -1,8 +0,0 @@
-(use-modules (scmvm)
-	     (scmvm vm)
-	     (scmvm assembler)
-	     (scmvm debugger))
-
-(define my-instructions (instructions-from-file "./asm/runtime.scm"))
-(define my-debugger (make-debugger my-instructions))
-(define my-vm (debugger-vm my-debugger))

tests.scm

@@ -1,5 +1,5 @@
 (use-modules (d- test)
-             (scmvm assembler)
+             (scmvm language assembler)
              (scmvm vm)
 	     (scmvm debugger)
              (rnrs bytevectors)