X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=week9.mdwn;h=b2fbb3aa17be0a71501f573cf08f71b09a53c173;hp=f5beebb4aa78e74e462a90bd9f5ce58869e37bdb;hb=9625fc39cff6e36e7ba0edac98fc8fda387f17ef;hpb=54f07a87abd25524b0e1599cc5208c0c88b7a8c1 diff --git a/week9.mdwn b/week9.mdwn index f5beebb4..b2fbb3aa 100644 --- a/week9.mdwn +++ b/week9.mdwn @@ -350,7 +350,7 @@ Let's consider how to interpet our new syntactic forms `newref`, `deref`, and `s ... | Setref (expr1, expr2) -> let (Index n, s') = eval expr1 g s - (* note that s' may be different from s, if expr itself contained any mutation operations *) + (* note that s' may be different from s, if expr1 itself contained any mutation operations *) in let (new_value, s'') = eval expr2 g s' (* now we create a list which is just like s'' except it has new_value in index n *) in let rec replace_nth lst m =