Update hugo.scm

technicat · Aug 7, 2023 · 722a62c · 722a62c
1 parent 4f45bbd
commit 722a62c
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/hugo.scm b/hugo.scm
@@ -102,7 +102,7 @@
  (newline out))
 
 (define (write-dish-chinese dish out)
- (h2"Chinese" out)
+ (h2 "Chinese" out)
  (write-dish-cantonese dish out)
  (write-dish-mandarin dish out)
  (write-dish-simplified dish out))
@@ -179,6 +179,11 @@
   chinese
   (res-value "text" chinese)))
 
+(define (wkty chinese)
+ (if (string? chinese)
+  chinese
+  (res-value "wkty" chinese)))
+
 (define (description dish)
  (res-value "description" dish))