Skip to content

Commit

Permalink
Merge pull request #186 from BrianHawley/fix-2109-function-local-not-…
Browse files Browse the repository at this point in the history
…at-end

Fixes FUNCTION and CLOSURE when /local not last refinement
  • Loading branch information
carls committed Mar 4, 2014
2 parents 5d0a9b4 + a155f6a commit 25033f8
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion src/mezz/base-funcs.r
Expand Up @@ -41,7 +41,7 @@ function: funct: func [
body: copy/deep body
; Collect all set-words in the body as words to be used as locals, and add
; them to the spec. Don't include the words already in the spec or object.
append spec collect-words/deep/set/ignore body either with [
insert find/tail spec /local collect-words/deep/set/ignore body either with [
; Make our own local object if a premade one is not provided
unless object? object [object: make object! object]
bind body object ; Bind any object words found in the body
Expand Down
2 changes: 1 addition & 1 deletion src/mezz/mezz-func.r
Expand Up @@ -35,7 +35,7 @@ closure: func [
body: copy/deep body
; Collect all set-words in the body as words to be used as locals, and add
; them to the spec. Don't include the words already in the spec or object.
append spec collect-words/deep/set/ignore body either with [
insert find/tail spec /local collect-words/deep/set/ignore body either with [
; Make our own local object if a premade one is not provided
unless object? object [object: make object! object]
bind body object ; Bind any object words found in the body
Expand Down

0 comments on commit 25033f8

Please sign in to comment.