st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-05 22:38:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Length, string -> std functions

Browse source
This commit is contained in:
Dmitry Boulytchev 2021-01-31 22:57:12 +03:00
parent 216e716251
commit f1430a1cdf
10 changed files with 21 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

6
stdlib/Ostap.lama
View file

@ -18,7 +18,7 @@ public fun logOn () {
public fun initOstap () {
tab := ref (emptyHashTab (1024, hash, compare));
restab := emptyCustomMemo (fun (x) {case x of #string -> true | _ -> false esac}, compare);
restab := emptyCustomMemo (fun (x) {case x of #str -> true | _ -> false esac}, compare);
hct := emptyMemo ()
}
@ -74,8 +74,8 @@ public fun memo (f) {
public fun token (x) {
case x of
#string -> memo $ fun (k) {fun (s) {k $ matchString (s, x)}}
| _ -> memo $ fun (k) {fun (s) {k $ matchRegexp (s, x)}}
#str -> memo $ fun (k) {fun (s) {k $ matchString (s, x)}}
| _ -> memo $ fun (k) {fun (s) {k $ matchRegexp (s, x)}}
esac
}