Load 'Debug.carp' by default.

bench/array_resizing.carp

@@ -1,6 +1,5 @@
 (load "Bench.carp")
 (use Bench)
-(load "Debug.carp")
 (Debug.sanitize-addresses)
 
 (def n 10000)

bench/array_subarray.carp

@@ -1,6 +1,5 @@
 (load "Bench.carp")
 (use Bench)
-(load "Debug.carp")
 (Debug.sanitize-addresses)
 (use Array)
 

bench/array_swap.carp

@@ -1,6 +1,5 @@
 (load "Bench.carp")
 (use Bench)
-(load "Debug.carp")
 (Debug.sanitize-addresses)
 
 (def a [0])

bench/array_update.carp

@@ -1,6 +1,5 @@
 (load "Bench.carp")
 (use Bench)
-(load "Debug.carp")
 (Debug.sanitize-addresses)
 (use Array)
 

core/Debug.carp

@@ -40,6 +40,6 @@
         ()
         (list 'do
               (list 'IO.println (list 'ref
-                                      (list 'String.append (list 'String.copy "Assertion failed ")
+                                      (list 'String.append (list 'String.copy "Assertion failed at ")
                                             (list 'String.copy (source-location)))))
               '(System.exit 1))))

examples/ant.carp

@@ -4,7 +4,6 @@
 
 (load "sdl.carp")
 (load "sdl_image.carp")
-(load "Debug.carp")
 
 (Debug.sanitize-addresses)
 

examples/bugs.carp

@@ -1,6 +1,5 @@
 ;; This file contains examples of unsolved bugs
 
-(load "Debug.carp")
 (Debug.sanitize-addresses)
 (Project.config "print-ast" true)
 

examples/generic_structs.carp

@@ -1,4 +1,3 @@
-(load "Debug.carp")
 (Debug.sanitize-addresses)
 (use Array)
 

examples/globals.carp

@@ -1,4 +1,3 @@
-(load "Debug.carp")
 (Project.config "print-ast" true)
 (Debug.sanitize-addresses)
 

examples/temp.carp

@@ -1,4 +1,6 @@
 ;;(Project.config "echo-compiler-cmd" true)
-;; (load "Debug.carp")
 ;; (Debug.sanitize-addresses)
 ;; (Project.config "print-ast" true)
+
+(defn main []
+  (assert false))

src/StartingEnv.hs

@@ -29,6 +29,7 @@ coreModules carpDir = map (\s -> carpDir ++ "/core/" ++ s ++ ".carp") [ "Interfa
                                                                       , "IO"
                                                                       , "System"
                                                                       , "Pattern"
+                                                                      , "Debug"
                                                                       ]
 
 -- | The array module contains functions for working with the Array type.

test/init_global.carp

@@ -2,8 +2,6 @@
 ;; It initializes a global with a something that needs to allocate memory and call functions,
 ;; then checks that the memory balance is correct after the init step.
 
-(load "Debug.carp")
-
 (def g (copy (Array.nth &[@"A" @"B" @"C"] 1)))
 
 ;; The one allocation left after 'carp_init_globals' should be 'g' itself:

test/memory.carp

@@ -1,4 +1,3 @@
-(load "Debug.carp")
 (load "Test.carp")
 
 (use IO)

test/vectorn.carp

@@ -1,4 +1,3 @@
-(load "Debug.carp")
 (Debug.sanitize-addresses)
 
 (load "Test.carp")