diff options
| author | Robin Templeton <[email protected]> | 2014-07-18 15:03:49 -0400 |
|---|---|---|
| committer | Robin Templeton <[email protected]> | 2015-04-20 00:29:01 -0400 |
| commit | da5f1e884887441b0eb5b519ec366bc551d73da7 (patch) | |
| tree | 8c10b4aed4be2c89b42323ef4f6e94752fa3e066 /src | |
| parent | f88feb5d1ec0a34752f688017190cf56798850fc (diff) | |
subrp fix
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index 9fb276cc89..c3a04eedda 100644 --- a/src/data.c +++ b/src/data.c @@ -471,7 +471,7 @@ DEFUN ("subrp", Fsubrp, Ssubrp, 1, 1, 0, (Lisp_Object object) { if (CONSP (object) && EQ (XCAR (object), Qspecial_operator)) - object = XCDR (object); + return Qt; if (SCM_PRIMITIVE_P (object)) return Qt; return Qnil; |