From f64e175fdd1131a495a8264f82345f19e8bf64f4 Mon Sep 17 00:00:00 2001 From: Jack Yansong Li Date: Sun, 3 Nov 2024 09:44:47 -0500 Subject: [PATCH] [61_7] Goldfish: update syntax for v17.10.8 --- TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm | 11 ++++++++++- TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm | 4 ++++ 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm b/TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm index bf33fc5cd..31410437f 100644 --- a/TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm +++ b/TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm @@ -52,11 +52,20 @@ (define (liii-uuid) (map symbol->string '(uuid4))) +(define (liii-base64) + (map symbol->string '(string-base64-encode bytevector-base64-encode base64-encode string-base64-decode bytevector-base64-decode base64-decode))) + +(define (liii-bitwise) + (map symbol->string '(bitwise-not bitwise-and + bitwise-ior bitwise-xor bitwise-or bitwise-nor bitwise-nand + bit-count arithmetic-shift + lognot logand logior logxor + ash))) (tm-define (liii-keywords) `(,@(liii-base) ,@(liii-check) ,@(liii-list) ,@(liii-string) ,@(liii-os) ,@(liii-queue) - ,@(liii-stack) ,@(liii-sys) ,@(liii-uuid))) + ,@(liii-stack) ,@(liii-sys) ,@(liii-uuid) ,@(liii-base64) ,@(liii-bitwise))) (tm-define (liii-keywords-define) (map symbol->string diff --git a/TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm b/TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm index 2dd232289..5de20f3ae 100644 --- a/TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm +++ b/TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm @@ -116,3 +116,7 @@ vector-any vector-every vector-copy vector-copy! vector-index vector-index-right vector-partition vector-swap!))) + +(tm-define (srfi-151-keywords) + (map symbol->string + '(bitwise-not bitwise-and bitwise-ior bitwise-xor bitwise-or bitwise-nor bitwise-nand bit-count arithmetic-shift)))