Move <memory> to file

Move default memory size to <bf>

sources/brainfuck.dylan

@@ -3,26 +3,15 @@ Synopsis: Brainfuck core
 Author: Fernando Raya
 Copyright: GPLv3
 
-define constant $memory-size
-  = 30000;
-
-define constant <memory-cell>
-  = <integer>;
-
-define constant <memory>
-  = limited(<vector>, of: <memory-cell>, size: $memory-size);
-
-define constant <memory-pointer>
-  = <integer>;
-
 define sealed class <bf> (<object>)
   slot bf-pp :: <program-pointer> = 0,
     init-keyword: program-pointer:;
   slot bf-mp :: <memory-pointer> = 0,
     init-keyword: memory-pointer:;
   constant slot bf-program :: <program>,
     required-init-keyword: program:;
-  constant slot bf-memory :: <memory> = make(<memory>, fill: 0),
+  constant slot bf-memory :: <memory>
+    = make(<memory>, fill: 0, size: $default-memory-size),
     init-keyword: memory:;
 end;
 

sources/brainfuck.lid

@@ -1,5 +1,6 @@
 Library: brainfuck
 Files: library.dylan
+       memory.dylan
        instruction.dylan
        comment-instruction.dylan
        io-instruction.dylan

sources/memory.dylan

@@ -0,0 +1,16 @@
+Module: brainfuck-impl
+Synopsis: Brainfuck memory 
+Author: Fernando Raya
+Copyright: GPLv3
+
+define constant $default-memory-size
+  = 30000;
+
+define constant <memory-cell>
+  = <integer>;
+
+define constant <memory>
+  = limited(<vector>, of: <memory-cell>);
+
+define constant <memory-pointer>
+  = <integer>;