Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

refactor

  • Loading branch information...
commit 4d39db573bdf49b5906665713bc3b9984fd4b39b 1 parent 0068c9e
@scutdavy authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 objc/Nu.m
View
6 objc/Nu.m
@@ -6655,9 +6655,10 @@ @implementation Nu_append_operator
- (id) callWithArguments:(id)cdr context:(NSMutableDictionary *)context{
id newList = [NSNull NU_null];
id cursor = nil;
- id list_to_append = cdr;
- while (list_to_append && (list_to_append != [NSNull NU_null])) {
+
+ for (id list_to_append in [cdr cellEnumerator]) {
id item_to_append = [[list_to_append car] evalWithContext:context];
+
while (item_to_append && (item_to_append != [NSNull NU_null])) {
if (newList == [NSNull NU_null]) {
newList = [[[NuCell alloc] init] autorelease];
@@ -6671,7 +6672,6 @@ - (id) callWithArguments:(id)cdr context:(NSMutableDictionary *)context{
[cursor setCar: item];
item_to_append = [item_to_append cdr];
}
- list_to_append = [list_to_append cdr];
}
return newList;
}
Please sign in to comment.
Something went wrong with that request. Please try again.