minifixes

repl.spl

@@ -8,7 +8,7 @@ func main { mega | with args ;
         catch {
             "  > " print readln dyn-read exec2 "\n" print
         } 
-        with { with err ;
+        { with err ;
             err:message dup null eq if {
                 pop
                 "Uncaught error."

src/lexer.rs

@@ -179,8 +179,10 @@ fn read_block(str_words: &[String], isfn: bool) -> Result<(Option<u32>, Words, u
                     types.push(str_words[i].to_owned());
                     i += 1;
                 }
+                println!("{} {}", str_words[i], str_words[i+1]);
                 let blk = read_block(&str_words[i + 1..], false)?;
-                i += 1 + blk.2;
+                i += 2 + blk.2;
+                println!("{} {}", str_words[i], str_words[i+1]);
                 let ctch = read_block(&str_words[i + 1..], false)?;
                 i += 1 + ctch.2;
                 words.push(Word::Key(Keyword::Catch(types, blk.1, ctch.1)))

src/main.rs

@@ -22,6 +22,9 @@ fn main() {
             }
             println!("Embedding source...");
         }
+        else {
+            builder.set_name(file[..file.rfind('.').unwrap_or(file.len())].to_owned());
+        }
         builder.add_source(file.to_owned(), data.to_owned());
         if build_only {
             println!("Preparing rust code...");

std.spl

@@ -472,8 +472,7 @@ func call-main-on-file { | with file ;
         "@" file concat import 
         update-types
         argv main exit
-    }
+    } { with err ;
-    with { with err ;
         err:message dup null eq if {
             pop
             "Uncaught error."

test.spl

@@ -120,8 +120,7 @@ func main { int | with args ;
         "testing http" println
         def req "tudbut.de" 81 "GET" "/spltest" Request:new =req
         req:send:body _str println
-    } 
+    } { with e ;
-    with { with e ;
         e:message println
         "it seems the internet is not available" println
     }
@@ -136,7 +135,7 @@ func main { int | with args ;
 
     catch {
         "heya" throw
-    } with { with e ;
+    } { with e ;
         e:message println
     }
     "" println