Separate read and write access to Lisp_Object slots of struct frame.

[bpt/emacs.git] / src / print.c

diff --git a/src/print.c b/src/print.c
index d161339..8db2223 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1896,7 +1896,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
       else if (FRAMEP (obj))
        {
          int len;
-         Lisp_Object frame_name = FVAR (XFRAME (obj), name);
+         Lisp_Object frame_name = FGET (XFRAME (obj), name);
 
          strout ((FRAME_LIVE_P (XFRAME (obj))
                   ? "#<frame " : "#<dead frame "),