Typo

manuel-serrano · Nov 20, 2024 · 7777d49 · 7777d49
1 parent f4f6bf6
commit 7777d49
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hopscript/constants_expd.sch b/hopscript/constants_expd.sch
@@ -3,7 +3,7 @@
 ;*    -------------------------------------------------------------    */
 ;*    Author      :  Manuel Serrano                                    */
 ;*    Creation    :  Thu Mar 28 15:09:08 2019                          */
-;*    Last change :  Tue Nov 19 20:10:00 2024 (serrano)                */
+;*    Last change :  Wed Nov 20 06:22:33 2024 (serrano)                */
 ;*    Copyright   :  2019-24 Manuel Serrano                            */
 ;*    -------------------------------------------------------------    */
 ;*    HopScript constant expanders                                     */
@@ -22,7 +22,7 @@
 	       #unspecified)
 	      (bigloo-c
 	       ;; see bigloo_vector.h for details
-	       (static-pragma ,(format "static struct { struct bgl_vector vec; obj_t objs[ ~a ]; } __js_cnst_table = {{\n#if (!defined(TAG_VECTOR))\n BGL_MAKE_HEADER(VECTOR_TYPE, ~a)\n#endif\n#if HOP_VECTOR_LENGTH_FIELDP\n#if defined(!TAG_VECTOR)\n,\n#endif\n ~a\n#endif\n }};\n" num (+fx 1 num) (+fx 1 num) (+fx 1 num)))))
+	       (static-pragma ,(format "static struct { struct bgl_vector vec; obj_t objs[ ~a ]; } __js_cnst_table = {{\n#if (!defined(TAG_VECTOR))\n BGL_MAKE_HEADER(VECTOR_TYPE, ~a)\n#endif\n#if HOP_VECTOR_LENGTH_FIELDP\n#if !defined(TAG_VECTOR)\n,\n#endif\n ~a\n#endif\n }};\n" num (+fx 1 num) (+fx 1 num) (+fx 1 num)))))
 	  e))
       (else
        (error "%define-cnst" "bad syntax" x))))