Add support for BIND

This commit is contained in:
John J. Camilleri
2021-02-13 00:14:35 +01:00
parent 8cfaa69b6e
commit 98f6136ebd
8 changed files with 34 additions and 3 deletions

View File

@@ -90,7 +90,7 @@ mkCanon2lpgf opts gr am = do
term = foldl L.LFProjection tuple (L.LFInt (pidIx+1):pids')
return term
-- PredefValue PredefId -- TODO predef not supported
C.PredefValue (C.PredefId "BIND") -> return L.LFBind
C.RecordValue rrvs -> do
ts <- sequence [ val2lin lv | C.RecordRow lid lv <- rrvs ]