Cannot render articulations

[Baggypants]

attempting to add \sukui to a score results in

Interpreting music...
boring-practice.ly:126:14: programming error: articulation-type must be a symbol since 2.23.6: "sukui"
    c4 c8 c8 
             \sukui 
boring-practice.ly:126:14: continuing, cross fingers
boring-practice.ly:126:14: warning: do not know how to interpret articulation: "sukui"
    c4 c8 c8 
             \sukui 

or with sakura sakura

GNU LilyPond 2.25.20 (running Guile 3.0)
Processing `sakura-sakura.ly'
Parsing...
Interpreting music...
sakura-sakura.ly:39:22: programming error: articulation-type must be a symbol since 2.23.6: "hajiki"
    f' g'8^\third f' 
                     \hajiki
sakura-sakura.ly:39:22: continuing, cross fingers
sakura-sakura.ly:39:22: warning: do not know how to interpret articulation: "hajiki"
    f' g'8^\third f' 
                     \hajiki
[8]
sakura-sakura.ly:49:15: programming error: articulation-type must be a symbol since 2.23.6: "hajiki"
    f' g'8 f' 
              \hajiki
sakura-sakura.ly:49:15: continuing, cross fingers
sakura-sakura.ly:49:15: warning: do not know how to interpret articulation: "hajiki"
    f' g'8 f' 
              \hajiki

[Baggypants]

I managed to fix it. Here is a diff

--- shamisen-original.ly	2024-12-09 13:02:42.007687846 +0000
+++ shamisen.ly	2024-12-09 13:01:43.158772674 +0000
@@ -152,35 +152,35 @@
 
 #(append! default-script-alist
   (list
-    `("hajiki"
+    `(hajiki
       . (
         (stencil . ,ly:text-interface::print)
         (text . ,hajiki-markup)
         (quantize-position . #t)
         (avoid-slur . around)
         (direction . ,DOWN)))
-    `("sukui"
+    `(sukui
       . (
         (stencil . ,ly:text-interface::print)
         (text . ,sukui-markup)
         (quantize-position . #t)
         (avoid-slur . around)
         (direction . ,DOWN)))
-   `("uchi"
+   `(uchi
       . (
         (stencil . ,ly:text-interface::print)
         (text . ,uchi-markup)
         (quantize-position . #t)
         (avoid-slur . around)
         (direction . ,DOWN)))
-   `("oshi"
+   `(oshi
       . (
         (stencil . ,ly:text-interface::print)
         (text . ,oshi-markup)
         (quantize-position . #t)
         (avoid-slur . around)
         (direction . ,DOWN)))
-   `("keshi"
+   `(keshi
       . (
         (stencil . ,ly:text-interface::print)
         (text . ,keshi-markup)
@@ -188,11 +188,11 @@
         (avoid-slur . around)
         (direction . ,DOWN)))))
 
-hajiki = #(make-articulation "hajiki")
-sukui  = #(make-articulation "sukui")
-uchi   = #(make-articulation "uchi")
-oshi   = #(make-articulation "oshi")
-keshi  = #(make-articulation "keshi")
+hajiki = #(make-articulation 'hajiki)
+sukui  = #(make-articulation 'sukui)
+uchi   = #(make-articulation 'uchi)
+oshi   = #(make-articulation 'oshi)
+keshi  = #(make-articulation 'keshi)
 
 first  = \markup { \teeny "Ⅰ" }
 second = \markup { \teeny "Ⅱ" }
@@ -215,7 +215,7 @@
 #(define (is-shamisen-articulation art)
    (let* ((atype (ly:music-property art 'articulation-type))
           (aname (ly:music-property art 'name))
-          (atypes '("hajiki" "sukui" "uchi" "oshi" "keshi"))
+          (atypes '(hajiki sukui uchi oshi keshi))
           (anames '(StringNumberEvent TextScriptEvent)))
      (cond ((member atype atypes) #t)
            ((member aname anames) #t)

[threedaymonk]

Great work, thank you! I should have some time over the holiday to integrate this and check everything.