From 8d43a884af141651eefdb049b52ab4fd3356763b Mon Sep 17 00:00:00 2001 From: azidar Date: Tue, 24 Mar 2015 10:24:11 -0700 Subject: With new stanza --- src/main/stanza/ir-parser.stanza | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/main/stanza/ir-parser.stanza') diff --git a/src/main/stanza/ir-parser.stanza b/src/main/stanza/ir-parser.stanza index 46b62162..a9ddf817 100644 --- a/src/main/stanza/ir-parser.stanza +++ b/src/main/stanza/ir-parser.stanza @@ -37,7 +37,7 @@ defn split-string (s:String, split:String) -> List : loop(s) ;======= Unwrap Prefix Forms ============ -defn unwrap-prefix-form (form) : +defn unwrap-prefix-form (form) -> ? : match(form) : (form:Token) : val fs = unwrap-prefix-form(item(form)) @@ -53,12 +53,12 @@ defn unwrap-prefix-form (form) : list(form) ;======= Split Dots ============ -defn split-dots (forms:List) : +defn split-dots (forms:List) -> ? : defn to-form (x:String) : val num? = for c in x all? : c >= '0' and c <= '9' to-int(x) when num? else to-symbol(x) - defn split (form) : + defn split (form) -> List: match(ut(form)) : (f:Symbol) : val fstr = to-string(f) -- cgit v1.2.3