From 69276220df02d2c226021d79ee4a4fd173ae85ee Mon Sep 17 00:00:00 2001 From: Matthew Hall Date: Sat, 18 Feb 2023 00:11:29 +1300 Subject: String literals, fizzbuzz, other tweaks --- DSL/Intrinsics.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'DSL/Intrinsics.hs') diff --git a/DSL/Intrinsics.hs b/DSL/Intrinsics.hs index 11b37f3..72bee4f 100644 --- a/DSL/Intrinsics.hs +++ b/DSL/Intrinsics.hs @@ -7,7 +7,11 @@ dump :: StackModifier dump = StackModifier { smName="DUMP", smTypes=ts, smFunc=f } where ts = [tAny] - f (x:xs) = putStrLn (show x) >> return xs + f (x:xs) = putStrLn x' >> return xs + where + x' = case x of + StackString s -> s + _ -> show x f _ = unreachable drop' :: StackModifier -- cgit v1.2.1