1
1
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 01:57:09 +03:00

make: fix sapply to address self-host test failures.

sapply has a strip in the wrong position and was allowing a space at
the beginning of the arugment to sneak in. This was breaking most
sequence functions like (empty? (list 7 8)), (count [7 8]), (first [7
8]), etc.
This commit is contained in:
Joel Martin 2015-10-12 18:58:33 -05:00
parent 75fed11f03
commit edda92c85b

View File

@ -159,10 +159,9 @@ srest = $(word 1,$(foreach new_list,$(call _list),\
# Takes a space separated arguments and invokes the first argument
# (function object) using the remaining arguments.
sapply = $(call $(word 1,$(1))_value,\
$(strip \
$(wordlist 2,$(call int_sub,$(words $(1)),1),$(1)) \
$($(word $(words $(1)),$(1))_value)))
sapply = $(call $(word 1,$(1))_value,$(strip \
$(wordlist 2,$(call int_sub,$(words $(1)),1),$(1)) \
$($(word $(words $(1)),$(1))_value)))
# Map a function object over a list object
smap = $(strip\