From 7dac8a2eca993bf55552aa9392dbee3cbc28c2fd Mon Sep 17 00:00:00 2001 From: Timur Ismagilov Date: Fri, 8 Mar 2019 22:50:48 +0500 Subject: [PATCH] Add sub to Agidel/C --- c.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/c.scm b/c.scm index 97c5904..f1cb8cb 100644 --- a/c.scm +++ b/c.scm @@ -301,4 +301,5 @@ (define (get array element) (format "~A[~A]" array element)) (define (deref pointer) (format "*~A" pointer)) (define (ref pointer) (format "&~A" pointer)) + (define (sub . os) (-string-join os "." 'infix)) ) -- 2.45.2