| external-reality | 8f34d23 | 2014-02-22 21:35:47 -0500 | [diff] [blame] | 1 | ;;; package --- Summary |
| 2 | |
| 3 | ;;; Commentary: |
| 4 | |
| 5 | ;;; Code: |
| 6 | (require 'shm-node) |
| 7 | (require 'shm-query) |
| 8 | |
| 9 | (shm-query shm-query-lambda-args "lambdaArgs") |
| 10 | (shm-query shm-query-lambda-body "lambdaBody") |
| 11 | (shm-query shm-query-lambda-free-vars "freeVariables") |
| 12 | |
| 13 | (defun shm-lambda-args (node) |
| external-reality | 7d1190e | 2014-03-04 23:14:16 -0500 | [diff] [blame^] | 14 | (shm-query-lambda-args node)) |
| external-reality | 8f34d23 | 2014-02-22 21:35:47 -0500 | [diff] [blame] | 15 | |
| 16 | (defun shm-lambda-free-vars (node) |
| 17 | (vector-to-string (shm-query-lambda-free-vars |
| 18 | node |
| 19 | (buffer-file-name (current-buffer))))) |
| 20 | |
| 21 | (defun vector-to-string (vec) |
| 22 | (mapconcat 'identity vec " ")) |
| 23 | |
| 24 | (provide 'shm-lambda) |
| 25 | |