From 817548695d139784e415cdc0d1fb9a2cb32dd609 Mon Sep 17 00:00:00 2001
From: minjaesong <alswo9628@gmail.com>
Date: Sun, 27 Dec 2020 21:52:49 +0900
Subject: [PATCH] basic: confirming that high-order function is working
 properly?

---
 assets/disk0/home/basic/sinc2.bas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/assets/disk0/home/basic/sinc2.bas b/assets/disk0/home/basic/sinc2.bas
index daef039..3c3fb62 100644
--- a/assets/disk0/home/basic/sinc2.bas
+++ b/assets/disk0/home/basic/sinc2.bas
@@ -3,7 +3,7 @@
 10 DEFUN SINC(P)=IF P==0 THEN 1.0 ELSE SIN(P)/P
 20 DEFUN TOCHAR(P,X)=IF (X==ROUND(ZEROLINE+P*AMP)) THEN "@" ELSE IF (X==ZEROLINE) THEN "|" ELSE CHR(250)
 30 DEFUN SCONCAT(ACC,S)=ACC+S
-40 DEFUN PLOTLINE(F,X)=FOLD(SCONCAT,"",MAP(TOCHAR~<F~<X,1 TO ZEROLINE+AMP))
+40 DEFUN PLOTLINE(F,X)=FOLD(SCONCAT,"",MAP(TOCHAR~<F(X),1 TO ZEROLINE+AMP))
 100 FOR I=-40 TO 40
 110 PRINT PLOTLINE(SINC,I)
 120 NEXT