How to set initial job environment values?

[Lindsay Lawrence]

Hi,

Is there a simpler way to set the curry environment's State value to Seed
than what I am doing here?

Regards,
Lindsay

(de randomLehmer (Seed)
   (let
      (Fn
         (curry
            ((State . 1))
            NIL
            (setq State (% (* State 279470273) 4294967291)) ) )
      (set
         (nth Fn 2 2 2)
         (cons
            'State
            (if Seed Seed (inc (abs (rand)))) ) )
      Fn ) )


: (pretty (randomLehmer 97))
(NIL
   (job '((State . 97))
      (setq State (% (* State 279470273) 4294967291)) ) )-> ")"
:

>
>