X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=spl.icl;h=1690d71850c97d1d312ee9c9808fa992dd623fac;hb=a363f872ee96379d8b0b9b14cb6faec9d74e7e92;hp=240de63540f0a0b9856babac414e58d8bf70bade;hpb=5b1c37a52f0d63d4972665f672df100a231a2f57;p=cc1516.git diff --git a/spl.icl b/spl.icl index 240de63..1690d71 100644 --- a/spl.icl +++ b/spl.icl @@ -66,8 +66,7 @@ Start w # stdin = if (not args.parse) stdin ( stdin <<< "//PARSER\n" <<< toString parseOut <<< "//PARSER\n") = case sem parseOut of - (Left e) = snd $ fclose (stdin <<< "SEMERRORS: " <<< - join "\n" (map toString e)) w + (Left e) = snd $ fclose (stdin <<< join "\n" (map toString e)) w (Right semOut) # stdin = if (not args.sem) stdin ( stdin <<< "//SEM\n" <<< toString semOut <<< "//SEM\n")