Hash :
fb7ae9ad
Author :
Thomas de Grivel
Date :
2025-07-20T14:41:49
split buf_parse_ident_cast and fix '(Ident) Module.sym' parsing and special operator resolution
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99
Socket.close(s)
s = Socket.listen("localhost", "15004")
(Bool) s
type(s)
void = ?
a = ?
void = a
void = ^a
void = ^ a
a = ?
void = ^ a
a
void = (a)
a
a = ?
a
void = (a)
a
^ 1
^
type(^)
while a do
a = false
end
a = 42
i = 0
while i < 10 do
i = 0
while i < 10 do
i = 0
while i < 10 do puts(i); i = i + 1 end
while i < 10 do puts("i = #{i}"); i = i + 1 end
let
%{}
do
123
end
Str("a", "b", "c")
str("a", "b", "c")
str(["a", "b", "c"])
special_operator_arity
special_operator_arity(quote +)
special_operator_arity(quote while)
str(["a", "b", "c"])
special_operator_arity(quote while)
i = 0; while i < 10 do puts("i = #{i}"); i = i + 1 end
i = 0 ; while i < 10 do puts("i = #{i}"); i = i + 1 end
i = 0 ; while i < 10 do puts("i = #{i}"); (i = i + 1) end
i = 0
while (i < 3) do
puts(i)
i = i + 1
end
git st
i = 0(
while i < 3 do
end
i < 3
while (i < 3) do
i = i + 1
puts(i)
:ok
end
i = 0
i < 3 do
endd
end
while i < 3 do
while (i) < 3 do
while i < 3 do
while i < 3 {
while i < 3 {end
end
}
end
}
end
while i < 3 do
i = 0 ; while i < 5 do puts("i = #{i}") ; i = i + 1 ; :ok end
1+1
1+ 2
continue
quote continue
type(quote continue)
type(quote break)
to_lisp(quote break)
to_lisp(quote continue)
continue
c = cfn Void "kc3_continue" ()
c()
continue
to_lisp(quote continue)
type(quote continue)
unquote(quote continue)
def c = macro () { quote continue }
c()
quote (Ident) continue
type(quote (Ident) continue)
type(quote (Ident) Test.sym)