Added dynamic function 'Project.no-echo' to disable echoing in examples.

core/Dynamic.carp

@@ -7,6 +7,13 @@
   (defdynamic dec [x]
     (- x 1))
 
+  (defmodule Project
+    (doc no-echo "Turn off debug printing in the compiler.")
+    (defdynamic no-echo []
+      (do
+        (Project.config "print-ast" false)
+        (Project.config "echo-compiler-cmd" false))))
+
   )
 
 

examples/basics.carp

@@ -3,6 +3,7 @@
 (use Float)
 (use Array)
 (use IO)
+(Project.no-echo)
 
 (defn fib [n]
   (if (< n 2)

examples/external_struct.carp

@@ -1,4 +1,5 @@
 (local-include "../examples/banana.h")
+(Project.no-echo)
 
 (register-type Apple)
 (register-type Banana [price Double, size Int])

examples/fonts.carp

@@ -2,6 +2,7 @@
 (load "SDL_ttf.carp")
 
 ;;(Debug.sanitize-addresses)
+(Project.config "title" "Fonts")
 
 (def font (the (Ptr TTF_Font) NULL))
 (def text1 (the (Ptr SDL_Texture) NULL))

examples/function_members.carp

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

examples/functor.carp

@@ -1,6 +1,7 @@
 (use IO)
 (use Int)
 (use Array)
+(Project.no-echo)
 
 (definterface fmap (λ [(λ [a] a) b] b))
 

examples/generic_structs.carp

@@ -1,4 +1,5 @@
 (Debug.sanitize-addresses)
+(Project.no-echo)
 (use Array)
 
 (deftype (Trivial t) [x t])

examples/globals.carp

@@ -1,4 +1,4 @@
-(Project.config "print-ast" true)
+(Project.no-echo)
 (Debug.sanitize-addresses)
 
 (def s "I'm a global string...")

examples/minimal_sdl.carp

@@ -1,5 +1,7 @@
 (load-and-use SDL)
 
+(Project.config "title" "Minimal")
+
 (defn tick [state]
   (+ state 10))
 

examples/setting_variables.carp

@@ -1,3 +1,5 @@
+(Project.no-echo)
+
 (defn changing-target-of-ref []
   (let [s1 @"hello"
         s2 @"goodbye"

examples/sorting.carp

@@ -1,4 +1,5 @@
 (use Array)
+(Project.no-echo)
 
 (deftype Age [x Int])
 

examples/updating.carp

@@ -1,6 +1,7 @@
 ;; A slightly bigger example of how to work with structs and arrays that change
 
 (use IO)
+(Project.no-echo)
 
 (deftype Pos
     [x Float