(Arne Babenhauserheide)
2015-06-22: newbase60: split let* into let* and let. newbase60: split let* into let* and let.
diff --git a/examples/newbase60.w b/examples/newbase60.w
--- a/examples/newbase60.w
+++ b/examples/newbase60.w
@@ -77,17 +77,18 @@ define : sxg->date str
. "Convert a new base 60 date into a list:
YYMD-hms -> (year month day hour minute second)
"
- let*
+ let*
: centeridx : string-rindex str #\- ; rindex because the year could be negative
getstr : lambda (s di) : string : string-ref str : + centeridx di
- year : substring/read-only str 0 : - centeridx 2
- month : getstr str -2
- day : getstr str -1
- hour : getstr str 1
- minute : getstr str 2
- second : getstr str 3
- map sxg->integer
- list year month day hour minute second
+ let
+ : year : substring/read-only str 0 : - centeridx 2
+ month : getstr str -2
+ day : getstr str -1
+ hour : getstr str 1
+ minute : getstr str 2
+ second : getstr str 3
+ map sxg->integer
+ list year month day hour minute second
define : main args
let