Restore PicoLisp namespaces for backwards compatibility

aw · Mar 23, 2017 · 1f26b55 · 1f26b55
1 parent 79036b0
commit 1f26b55
Show file tree

Hide file tree

Showing 6 changed files with 10 additions and 6 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## 2.1.0 (2017-03-23)
+
+  * Restore PicoLisp namespaces for backwards compatibility. Disable through PIL_NAMESPACES=false.
+
 ## 2.0.0 (2017-03-09)
 
   * Remove the use of PicoLisp namespaces (functionally equivalent to 1.0.0)

diff --git a/README.md b/README.md
@@ -39,9 +39,9 @@ Here are some guidelines on how to use `unit.l`, but you're free to poke around
 
 There exists a few public functions: `(execute)`, `(report)`, and a bunch of `(assert-X)` where X is a type of assertion.
 
-> **Note:** Namespaces can be disabled by setting the environment variable `PIL_NO_NAMESPACES=true`
+> **Note:** Namespaces can be disabled by setting the environment variable `PIL_NAMESPACES=false`
 
-> **Note for 64-bit PicoLisp:** you can use `(symbols 'unit)` (or the prefix: `unit~`). Ignored if `PIL_NO_NAMESPACES=true`
+> **Note for 64-bit PicoLisp:** you can use `(symbols 'unit)` (or the prefix: `unit~`). Ignored if `PIL_NAMESPACES=false`
 
 > **Note for 32-bit PicoLisp:** you don't have access to `(symbols)`, so these functions might clash with existing ones.
 

diff --git a/reporters/default.l b/reporters/default.l
@@ -4,7 +4,7 @@
 #
 # Copyright (c) 2017 Alexander Williams, Unscramble <[email protected]>
 
-(unless (sys "PIL_NO_NAMESPACES")
+(unless (= "false" (sys "PIL_NAMESPACES"))
   (local *Colours print-report print-passed print-failed report-failed print-error)
   (local print-expected print-got exit-gracefully) )
 

diff --git a/reporters/plain.l b/reporters/plain.l
@@ -4,7 +4,7 @@
 #
 # Copyright (c) 2017 Alexander Williams, Unscramble <[email protected]>
 
-(unless (sys "PIL_NO_NAMESPACES") (local print-report))
+(unless (= "false" (sys "PIL_NAMESPACES")) (local print-report))
 
 [de print-report ()
   (mapcar println *Results)

diff --git a/test.l b/test.l
@@ -1,6 +1,6 @@
 #!/usr/bin/env pil
 
-(unless (sys "PIL_NO_NAMESPACES")
+(unless (= "false" (sys "PIL_NAMESPACES"))
   (when symbols (symbols 'unit 'pico)) )
 
 (load "unit.l")

diff --git a/unit.l b/unit.l
@@ -4,7 +4,7 @@
 #
 # Copyright (c) 2017 Alexander Williams, Unscramble <[email protected]>
 
-(unless (sys "PIL_NO_NAMESPACES")
+(unless (= "false" (sys "PIL_NAMESPACES"))
   (when symbols (symbols 'unit 'pico))
 
   (local MODULE_INFO *My_tests_are_order_dependent *Results)