home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / cad / cadence / 185 < prev    next >
Encoding:
Text File  |  1992-07-21  |  1.0 KB  |  42 lines
  1. Newsgroups: comp.cad.cadence
  2. Path: sparky!uunet!darwin.sura.net!mlb.semi.harris.com!rtfm.mlb.fl.us!john
  3. From: john@rtfm.mlb.fl.us (John Blasik)
  4. Subject: Re: edge skill questions
  5. Message-ID: <1992Jul22.054233.13331@rtfm.mlb.fl.us>
  6. Summary: sstatus setinfix nil
  7. Organization: We don't need no stinkin' batches!
  8. References: <lyndon.711657463@angelo> <1992Jul21.074427.5381@inmos.co.uk>
  9. Date: Wed, 22 Jul 1992 05:42:33 GMT
  10. Lines: 30
  11.  
  12. >|> 
  13. >|> procedure( PsvCheckType(n type)
  14. >|>     procedure( PsvDoCheck('var \"type\") t)
  15. >|>     PsvDoCheck(n)
  16. >|> )
  17. >
  18. >Try this:
  19. >
  20. >procedure(PsvCheckType(n type)
  21. >  apply('procedure list(list('PsvDoCheck 'var type) t))
  22. >  PsvDoCheck(n)
  23. >)
  24.  
  25. I don't know why you would want to define such a function.
  26. In anycase, why not use a macro, that's what they're there for!
  27.  
  28. (mprocedure PsvCheckType(args)
  29.         (list (list 'lambda (cons 'var (cddr args)) t) (cadr args))
  30. )
  31.  
  32. apply('PsvCheckType '(PsvCheckType x "l"))
  33. => ((lambda (var "l") t) x)
  34.  
  35. This way, there's no named function to be re-defined.
  36.  
  37.  
  38. -- john
  39.  
  40.  
  41.  
  42.