diff options
Diffstat (limited to 'lang/qscheme/files/patch-asm.c')
-rw-r--r-- | lang/qscheme/files/patch-asm.c | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/lang/qscheme/files/patch-asm.c b/lang/qscheme/files/patch-asm.c deleted file mode 100644 index 8a78fe2ec29c..000000000000 --- a/lang/qscheme/files/patch-asm.c +++ /dev/null @@ -1,29 +0,0 @@ -Fix build with clang - -asm.c:1343:21: error: function definition is not allowed here - SOBJ prim(char *x) { - ^ ---- asm.c.orig 2017-06-24 19:10:34 UTC -+++ asm.c -@@ -1334,16 +1334,17 @@ static SOBJ scm_compile_quote(SOBJ icode, SOBJ argl, S - return(icode); - } - -+static SOBJ prim(char *x) { -+ int dummy; -+ return(SCM_SYM_VALUE(lookup_atom(scm_mkatom(x),NULL,&dummy,FALSE))); -+} -+ - /*-- KKK: should try to compile parial constant list */ - SOBJ backquotify(SOBJ ic, SOBJ l, SOBJ env, int level) - { - static SOBJ sym_cons, sym_append, sym_list2, sym_list2vec; - - if (sym_cons == NULL) { -- SOBJ prim(char *x) { -- int dummy; -- return(SCM_SYM_VALUE(lookup_atom(scm_mkatom(x),NULL,&dummy,FALSE))); -- } - sym_cons = prim("cons"); - sym_list2 = prim("list2"); - sym_append = prim("qq-append2"); |