From dab08fcbc01a3f8daa683ffeae4e8cc18df08acb Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Tue, 15 Aug 2023 00:20:22 +0200 Subject: generic applyN --- apply.s | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'apply.s') diff --git a/apply.s b/apply.s index 2d7109d..36d268c 100644 --- a/apply.s +++ b/apply.s @@ -14,10 +14,10 @@ main: thunkto %r12, $FUN2_code, $plus, $0 # apply first argument - thunkto %r12, $apply1, $2, %r12, %r11 + thunkto %r12, $apply, $2, %r12, %r11 # apply second argument (the p.a. function part is still in r12) - thunkto %r12, $apply1, $2, %r12, %r11 + thunkto %r12, $apply, $2, %r12, %r11 # print the result thunkto %r12, $print, $1, %r12 -- cgit v1.2.3