416 - renumber layers, but still passing until layer 10

  $ arc load.arc 10 mu.arc.t

2 files changed, 9 insertions, 9 deletions

diff --git a/load.arc b/load.arc
index ba8cd0bc..b9037aa4 100644
--- a/load.arc
+++ b/load.arc
@@ -10,7 +10,7 @@
     (whilet expr (read)
 ;?       (prn car.expr)
       (if (is 'section expr.0)
-        (when (< expr.1 level)
+        (when (<= expr.1 level)
           (each x (cut expr 2)
             (eval x)))
         (eval expr))
diff --git a/mu.arc.t b/mu.arc.t
index a9b67597..0dfb80e1 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -116,7 +116,7 @@
 (selective-load "mu.arc" section-level)
 ;? (quit)
 
-(section 10
+(section 20
 
 ; Our language is assembly-like in that functions consist of series of
 ; statements, and statements consist of an operation and its arguments (input
@@ -777,7 +777,7 @@
                        4 34  5 35  6 36))
   (prn "F - ops can operate on records with fields spanning multiple locations"))
 
-)  ; section 10
+)  ; section 20
 
 (section 100
 
@@ -933,7 +933,7 @@
 
 )  ; section 100
 
-(section 10
+(section 20
 
 ;; Functions
 ;
@@ -1964,7 +1964,7 @@
   (prn "F - 'len' accesses length of array address"))
 ;? (quit)
 
-)  ; section 10
+)  ; section 20
 
 (section 100
 
@@ -2089,7 +2089,7 @@
 
 )  ; section 100
 
-(section 10
+(section 20
 
 ;; Concurrency
 ;
@@ -2475,7 +2475,7 @@
   (if (no rep.routine!error)
     (prn "F - 'index' throws an error if out of bounds")))
 
-)  ; section 10
+)  ; section 20
 
 (section 100
 
@@ -2789,7 +2789,7 @@
 
 )  ; section 100
 
-(section 9
+(section 10
 
 ;; Separating concerns
 ;
@@ -3188,7 +3188,7 @@
           '((((2 integer)) <- ((copy)) ((0 literal)))))
   (prn "F - 'def!' clears all previous clauses"))
 
-)  ; section 9
+)  ; section 10
 
 ;; ---